bool primel(long n)
{
    long i;
    for (i=2;i<n;i++)
        if (n%i==0)
            return false;
    return true;
}